Ubisoft - ECTS 99 (UK) (Disc 2) (Press Kit)/Ubisoft - ECTS 99 (UK) (Disc 2) (Press Kit).bin/Credits.dcr/00007_Zoom In-Out.ls

Text File | 1999-08-15 | 6.4 KB | 203 lines

property pSprite, pSpriteRect, pStart, pActive, pStartRect, pDestRect, pDiffRect, pCompleteCycles, pText, pZoomed, pAuto, pTargetH, pTargetV, pCycles, pPeriodBase, pPeriod

on getBehaviorDescription
  vDesc = "ZOOM IN/OUT" & RETURN & RETURN
  vDesc = vDesc & "Gives the appearance of a sprite"
  vDesc = vDesc && "zooming in (getting larger) or zooming out (smaller)."
  vDesc = vDesc && "Can be used with text, bitmap, animated GIF, vector"
  vDesc = vDesc && "shapes, QuickTime 3, and Shockwave Flash sprites." & RETURN & RETURN
  vDesc = vDesc & "Place the sprite in its desired 'zoomed-in' position,"
  vDesc = vDesc && "then add the behavior to the sprite. Choose whether"
  vDesc = vDesc && "the sprite should first appear as zooming in or out,"
  vDesc = vDesc && "when the zooming should start, the coordinates for"
  vDesc = vDesc && "the 'zoomed-out' sprite, the number of times it should"
  vDesc = vDesc && "zoom, and how fast it should zoom. The default"
  vDesc = vDesc && "'zoomed-out' position is the center of the sprite." & RETURN & RETURN
  vDesc = vDesc & "The zoom can be activated automatically in the first frame,"
  vDesc = vDesc && "by a click on the sprite, or by sending the sprite a"
  vDesc = vDesc && "mZoomActivate message. Set the number of cycles to -1"
  vDesc = vDesc && "if you want an endless loop, or 0 if the zoom should"
  vDesc = vDesc && "happen only once.  See the Notes for Developers"
  vDesc = vDesc && "section of the script for information on this method." & RETURN & RETURN
  vDesc = vDesc & "PARAMETERS:" & RETURN
  vDesc = vDesc & " - Is sprite zoomed in or out at beginning" & RETURN
  vDesc = vDesc & " - Zoom activation (automatic, click, message" & RETURN
  vDesc = vDesc & " - Horizontal zoom out coordinate" & RETURN
  vDesc = vDesc & " - Vertical zoom out coordinate" & RETURN
  vDesc = vDesc & " - Zoom cycles" & RETURN
  vDesc = vDesc & " - Zoom speed (seconds)" & RETURN & RETURN
  vDesc = vDesc & "PERMITTED TYPES:" & RETURN
  vDesc = vDesc & "#text, #bitmap, #animgif, #vectorShape, #flash, #QuickTimeMedia" & RETURN
end

on getBehaviorTooltip
  vTip = "Zooms sprites in and out.  Use with" & RETURN
  vTip = vTip & "graphic and text sprites."
  return vTip
end

on beginSprite me
  mInitialize(me)
end

on prepareFrame me
  mUpdate(me)
end

on mouseUp me
  if pAuto = #click then
    mActivate(me)
  end if
end

on mInitialize me
  pSprite = sprite(me.spriteNum)
  pSpriteRect = pSprite.rect
  pActive = 0
  pCompleteCycles = 0.5
  pPeriod = pPeriodBase * 1000
  pText = pSprite.member.type = #text
  vTarget = point(pTargetH, pTargetV)
  if pZoomed = #in then
    vTargetRect = rect(vTarget, vTarget + point(1, 1))
    if pText then
      pSprite.quad = mRecttoQuad(vTargetRect)
    else
      pSprite.rect = vTargetRect
    end if
  end if
  if pAuto = #automatic then
    mActivate(me)
  end if
end

on mUpdate me
  if pActive then
    vMillis = the milliSeconds
    vElapsed = vMillis - pStart
    if vElapsed >= pPeriod then
      pActive = 0
      if pText then
        pSprite.quad = mRecttoQuad(pDestRect)
      else
        pSprite.rect = pDestRect
      end if
      mCheckCycle(me)
    else
      vRect = pStartRect + (pDiffRect * vElapsed / pPeriod)
      if pText then
        pSprite.quad = mRecttoQuad(vRect)
      else
        pSprite.rect = vRect
      end if
    end if
  end if
end

on mActivate me
  case pZoomed of
    #in:
      mZoomIn(me)
    #out:
      mZoomOut(me, point(pTargetH, pTargetV))
  end case
end

on mCheckCycle me
  vContinue = 0
  case pCycles of
    (-1):
      vContinue = 1
    0:
      vContinue = 0
    otherwise:
      pCompleteCycles = pCompleteCycles + 0.5
      if integer(pCompleteCycles) <= pCycles then
        vContinue = 1
      end if
  end case
  if vContinue then
    if pDestRect = pSpriteRect then
      mZoomOut(me, point(pTargetH, pTargetV))
    else
      mZoomIn(me)
    end if
  end if
end

on mRecttoQuad vRect
  return [point(vRect.left, vRect.top), point(vRect.right, vRect.top), point(vRect.right, vRect.bottom), point(vRect.left, vRect.bottom)]
end

on mZoomIn me
  mZoom(me, pSpriteRect)
end

on mZoomOut me, vTarget
  mZoom(me, rect(vTarget, vTarget + point(1, 1)))
end

on mZoom me, vDestRect
  pActive = 1
  pStartRect = pSprite.rect
  pDestRect = vDestRect
  pDiffRect = pDestRect - pStartRect
  pStart = the milliSeconds
end

on mCenter vRect
  return point(vRect.left + (vRect.width / 2), vRect.top + (vRect.height / 2))
end

on mErrorAlert me, vError, vData
  vBehaviorname = string(me)
  delete word 1 of vBehaviorname
  delete char -30001 of vBehaviorname
  delete char -30001 of vBehaviorname
  case vData.ilk of
    #void:
      vData = "<void>"
    #symbol:
      vData = "#" & vData
  end case
  case vError of
    #getPDLError:
      beep()
      return [#getPDLError: [#comment: "CANCEL: Sprite MUST be one of the following member types:" & RETURN & vData, #format: #symbol, #range: [#Cancel], #default: #Cancel]]
    #runTimeError:
      alert("CANCEL: Sprite MUST be one of the following member types:" & RETURN & mPermittedMemberTypes())
  end case
end

on mZoomActivate me
  if pAuto = #message then
    mActivate(me)
  end if
end

on getPropertyDescriptionList me
  vRect = sprite(the currentSpriteNum).rect
  vCenter = mCenter(vRect)
  if not (the currentSpriteNum) then
    exit
  end if
  vMember = sprite(the currentSpriteNum).member
  vMemberType = vMember.type
  vPermitted = mPermittedMemberTypes()
  if not vPermitted.getPos(vMemberType) then
    return mErrorAlert(me, #getPDLError, vPermitted)
  end if
  vPDList = [:]
  setaProp(vPDList, #pZoomed, [#comment: "Zoom in or out?", #format: #symbol, #default: #in, #range: [#in, #out]])
  setaProp(vPDList, #pAuto, [#comment: "Start automatically, when clicked," && "or by message?", #default: #automatic, #format: #symbol, #range: [#automatic, #click, #message]])
  setaProp(vPDList, #pTargetH, [#comment: "Horizontal zoom coordinate", #format: #integer, #default: vCenter.locH])
  setaProp(vPDList, #pTargetV, [#comment: "Vertical zoom coordinate", #format: #integer, #default: vCenter.locV])
  setaProp(vPDList, #pCycles, [#comment: "Zoom cycles (0 = one" && "zoom only, -1 = repeat forever)", #format: #integer, #default: 0, #range: [#min: -1, #max: 10]])
  setaProp(vPDList, #pPeriodBase, [#comment: "Time period for zoom (seconds)", #format: #float, #default: 2.0, #range: [#min: 0.25, #max: 15.0]])
  return vPDList
end

on mPermittedMemberTypes me
  return [#text, #bitmap, #animgif, #vectorShape, #quickTimeMedia, #flash]
end